home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE08 / EXCEPT / TRY6.DPR < prev    next >
Encoding:
Text File  |  1996-01-05  |  436 b   |  21 lines
  1. program try6;
  2. uses SysUtils, Dialogs, Hex;
  3.  
  4. var i: ^LongInt;
  5. begin
  6.   new(i);
  7.   try
  8.     try
  9.       i^ := HexVal('GOOD');
  10.       ShowMessage('We will never get here!')
  11.     except
  12.       on E: EHexValError do
  13.         ShowMessage(E.Message)
  14.     end { inner try block };
  15.   finally
  16.     dispose(i);
  17.     ShowMessage('We have cleaned up our memory!')
  18.   end { outer try block };
  19.   ShowMessage('And now we will get here...')
  20. end.
  21.